home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / TravelingSalesman / Source_code / main.f < prev    next >
Encoding:
Text File  |  1991-08-27  |  1.1 KB  |  38 lines
  1.       SUBROUTINE DOANNEALING(X,Y,NCITY)
  2. C      PROGRAM D10R13
  3.       PARAMETER (NCITY)
  4.       INTEGER IORDER
  5.       DIMENSION X(NCITY), Y(NCITY), IORDER(NCITY),XINIT(NCITY), YINIT(NCITY), INITO(NCITY);
  6.       COMMON /RAND/ IALPHA,IBETA,IDUM
  7.       OPEN(12,FILE='paths.dat',FORM='FORMATTED')
  8.       IALPHA = 7**5
  9.       IBETA = 2**31 - 1
  10. C     Create points of sale
  11.       IDUM = 111
  12.       DO I =1,NCITY
  13. C        X(I) = RAN3()
  14. C        Y(I) = RAN3()
  15.         IORDER(I) = I
  16.         WRITE(6,*) X(I), Y(I), IORDER(I)
  17.         XINIT(I) = X(I)
  18.         YINIT(I) = Y(I)
  19.         INITO(I) = IORDER(I)
  20.         ENDDO
  21.       CALL ANNEAL(X,Y,IORDER,NCITY)
  22.       WRITE(6,*) '*** System Frozen ***'
  23.       WRITE(6,*) 'Final path:'
  24.       WRITE(6,'(1X,T3,A,T13,A,T23,A)') 'city', 'x', 'y'
  25.       DO I=1,NCITY
  26.         II = IORDER(I)
  27.         JJ = INITO(I)
  28.         WRITE(6,'(1X,I4,2F10.4)') II,X(II), Y(II)
  29.         WRITE(12,1000) XINIT(JJ), YINIT(JJ), X(II), Y(II)
  30.         ENDDO
  31.         I = 1
  32.         II = IORDER(I)
  33.         JJ = INITO(I)
  34.         WRITE(6,'(1X,I4,2F10.4)') II,X(II), Y(II)
  35.         WRITE(12,1000) XINIT(JJ), YINIT(JJ), X(II), Y(II)
  36.  1000 FORMAT(4(3x, F8.4))
  37.       END
  38.